home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
GENEPROG.ARC
/
OUTPUT.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
5KB
|
104 lines
*SUBROUTINE OUTPUT 3/293/85 OUTPUT
*
CLEAR
STORE "--------------------------------------------------" TO LN
STORE "CHART: " TO CHARTX
STORE "DESCD: " TO DESCX
STORE "RESIDENCES :" TO RESX
STORE "BORN :" TO DOBX
STORE "DIED :" TO DODX
STORE "SPOUSE :" TO SPOUSEX
STORE "MOTHER :" TO MOTHERX
STORE "FATHER :" TO FATHERX
STORE "MARRIED :" TO DMARX
STORE "PLACE :" TO PLACEX
STORE "CHILDREN 1&6 :" TO CHILD1X
STORE " 2&7 :" TO CHILD2X
STORE " 3&8 :" TO CHILD3X
STORE " 4&9 :" TO CHILD4X
STORE " 5&10 :" TO CHILD5X
STORE "SISTERS :" TO SISTERSX
STORE "BROTHERS :" TO BROTHERSX
STORE "OCCUPATION :" TO OCCUPX
STORE "NOTES :" TO COMMX
STORE " " TO BLANK
STORE "REFERENCES:" TO REFX
STORE "UPDATED :" TO UPDATEX
CLEAR
SET DEVICE TO PRINT
USE GENE INDEX SNINDX
DO WHILE .NOT.EOF()
@ 2,50 SAY FULNAME PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 4,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 4,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 6,10 SAY RESX PICTURE "XXXXXXXXXXXXXXXXX"
@ 6,28 SAY RESIDENCES PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 8,10 SAY DOBX PICTURE "XXXXXXXXXXXXXXXXXX"
@ 8,28 SAY DOB PICTURE "XXXXXXXXXX"
@ 8,42 SAY PLACEX PICTURE "XXXXXXX"
@ 8,50 SAY POB PICTURE "XXXXXXXXXXXXXXXXXXXXXXXX"
@ 10,10 SAY DODX PICTURE "XXXXXXXXXXXXXXXX"
@ 10,28 SAY DOD PICTURE "XXXXXXXXXX"
@ 10,42 SAY PLACEX PICTURE "XXXXXXX"
@ 10,50 SAY POD PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
@ 13,10 SAY SPOUSEX PICTURE "XXXXXXXXXXXXXXXXXX"
@ 13,28 SAY SPOUSE PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 15,10 SAY DMARX PICTURE "XXXXXXXXXXXXXXXXXX"
@ 15,28 SAY DMAR PICTURE "XXXXXXXXXX"
@ 15,42 SAY PLACEX PICTURE "XXXXXXX"
@ 15,50 SAY PMAR PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 18,10 SAY CHILD1X PICTURE "XXXXXXXXXXXXXXXXXX"
@ 18,28 SAY CHILD1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 20,10 SAY CHILD2X PICTURE "XXXXXXXXXXXXXXXXXX"
@ 20,28 SAY CHILD2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 22,10 SAY CHILD3X PICTURE "XXXXXXXXXXXXXXXXXX"
@ 22,28 SAY CHILD3 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 24,10 SAY CHILD4X PICTURE "XXXXXXXXXXXXXXXXXX"
@ 24,28 SAY CHILD4 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 26,10 SAY CHILD5X PICTURE "XXXXXXXXXXXXXXXXXX"
@ 26,28 SAY CHILD5 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 28,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 28,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 30,10 SAY MOTHERX PICTURE "XXXXXXXXXXXXXXXX"
@ 30,28 SAY MOTHER PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 32,10 SAY FATHERX PICTURE "XXXXXXXXXXXXXXXX"
@ 32,28 SAY FATHER PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 34,10 SAY SISTERSX PICTURE "XXXXXXXXXXXXXXXXXX"
@ 34,28 SAY SISTERS PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 36,10 SAY BROTHERSX PICTURE "XXXXXXXXXXXXXXXXXX"
@ 36,28 SAY BROTHERS PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 39,10 SAY OCCUPX PICTURE "XXXXXXXXXXXXXXXX"
@ 39,28 SAY OCCUPATION PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 41,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 41,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 43,10 SAY COMMX PICTURE "XXXXXXXXXXX"
@ 43,22 SAY COMM1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 45,10 SAY BLANK PICTURE "XXXXXXXXXXX"
@ 45,22 SAY COMM2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 47,10 SAY BLANK PICTURE "XXXXXXXXXXX"
@ 47,22 SAY COMM3 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 49,10 SAY BLANK PICTURE "XXXXXXXXXXX"
@ 49,22 SAY COMM4 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 51,10 SAY BLANK PICTURE "XXXXXXXXXXX"
@ 51,22 SAY COMM5 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 53,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 53,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 55,10 SAY REFX PICTURE "XXXXXXXXXXX"
@ 55,22 SAY REFERENCE PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@ 57,10 SAY UPDATEX PICTURE "XXXXXXXXXX"
@ 57,22 SAY UPDATE PICTURE "XXXXXXXXXX"
@ 57,35 SAY CHARTX PICTURE "XXXXXXX"
@ 57,43 SAY CHART PICTURE "XXXXXXXXXX"
@ 57,54 SAY DESCX PICTURE "XXXXXXX"
@ 57,62 SAY DESCENDANT PICTURE "XXXXX"
EJECT
SKIP
ENDDO
CLEAR
RETURN